Public Class CManufacturer
    Private _intManufacturerID As Integer
    Private _strSeqManufacturerID As String
    'Private _intPerson As Integer
    Private _objPerson As New CPerson
    Private _strName As String
    Private _strShortName As String
    Private _strDescription As String
    Private _chrStatus As Char



    Public Property ManufacturerID() As Integer
        Get
            Return _intManufacturerID
        End Get
        Set(ByVal value As Integer)
            _intManufacturerID = value
        End Set
    End Property
    Public Property SeqManufacturerID() As String
        Get
            Return _strSeqManufacturerID
        End Get
        Set(ByVal value As String)
            _strSeqManufacturerID = value
        End Set
    End Property
    Public Property Person() As CPerson
        Get
            Return _objPerson
        End Get
        Set(ByVal value As CPerson)
            _objPerson = value
        End Set
    End Property
    Public Property Name() As String
        Get
            Return _strName
        End Get
        Set(ByVal value As String)
            _strName = value
        End Set
    End Property
    Public Property ShortName() As String
        Get
            Return _strShortName
        End Get
        Set(ByVal value As String)
            _strShortName = value
        End Set
    End Property
    Public Property Description() As String
        Get
            Return _strDescription
        End Get
        Set(ByVal value As String)
            _strDescription = value
        End Set
    End Property
    Public Property Status() As Char
        Get
            Return _chrStatus
        End Get
        Set(ByVal value As Char)
            _chrStatus = value
        End Set
    End Property
    
End Class
